home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / NumberRequester.asc < prev    next >
Text File  |  1980-03-09  |  3KB  |  112 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' NumberRequester v1.1 
  12. '
  13. ' Command
  14. '  -Wb Locker 1
  15. '  -Wb Wind Open 
  16. '  -Wb Wind Base 
  17. '  -Wb Wind Rastport 
  18. '  -Str Store
  19. '  -Wb Wind Title
  20. '  -Wb Gfx Mode
  21. '  -Wb Gfx Ink 
  22. '  -Wb Gfx Text  
  23. '  -Wb Bevel Box 
  24. '  -Wb Init Bool Gadget
  25. '  -Wb Insert Gadget 
  26. '  -Wb Refresh Gadget  
  27. '  -Wb Init Num Gadget 
  28. '  -X Wind 
  29. '  -Y Wind 
  30. '  -Get Msg
  31. '  -Get Msg Iadr 
  32. '  -Wb Refresh Gadget
  33. '  -Wb Remove Gadget   
  34. '  -Wb Free Bool Gadget    
  35. '  -Wb Free Num Gadget     
  36. '  -Wb Wind Close
  37. '  -Str Free 
  38. '
  39. Default 
  40. Amos To Back 
  41. Wb Locker 1
  42. '
  43. Wb Wind Open SCR To 164,56,300,66,2+4+8+$2000000
  44. W=Wb Wind Base : R=Wb Wind Rastport(W)
  45. TIT0=Str Store("IntuiExtend.Lib v2.0b")
  46. TIT1=Str Store("CIERP Philippe presente l'extention Intuition (Shareware) AMOS/AMOSPro")
  47. Wb Wind Title W To TIT0,TIT1
  48. '
  49. Wb Gfx Mode R,1
  50. Wb Gfx Ink R To 2,0
  51. Wb Gfx Text "Selectionnez un bouton S.V.P...",23,23 To R
  52. Wb Bevel Box R To 1,2,11,13,285,28
  53. GADSTR$="12345678"+String$(Chr$(0),42)
  54. UNDO$="12345678"+String$(Chr$(0),42)
  55. Wb Gfx Ink R To 1,0
  56. BOUT1[R,10,48,88,2,1,"Ok"]
  57. BGAD0=Wb Init Bool Gadget(0,11,49,86,11,2) : Wb Bevel Gadget BGAD0
  58. Wb Insert Gadget W To BGAD0
  59. Wb Refresh Gadget W,BGAD0
  60. BOUT1[R,105,48,88,2,1,"Refaire"]
  61. BGAD1=Wb Init Bool Gadget(1,106,49,86,11,2) : Wb Bevel Gadget BGAD1
  62. Wb Insert Gadget W To BGAD1
  63. Wb Refresh Gadget W,BGAD1
  64. BOUT1[R,200,48,88,2,1,"Annuler"]
  65. BGAD2=Wb Init Bool Gadget(2,201,49,86,11,2) : Wb Bevel Gadget BGAD2
  66. Wb Insert Gadget W To BGAD2
  67. Wb Refresh Gadget W,BGAD2
  68. BOUT[R,12,32,273,11,1,2,""]
  69. BOUT[R,11,31,275,13,2,1,""]
  70. ST3=Wb Init Num Gadget(3,13,34,273,9,Varptr(GADSTR$),50,0)
  71. Wb Insert Gadget W To ST3
  72. Wb Refresh Gadget W,ST3
  73. '
  74. Do 
  75.    X=X Wind(W) : Y=Y Wind(W)
  76.    Z=Get Msg(W) : Z1=Get Msg Iadr
  77.    If Z1=BGAD0 : Exit : End If 
  78.    If Z1=BGAD1
  79.       Poke$ Varptr(GADSTR$),Peek$(Varptr(UNDO$),50)
  80.       Wb Refresh Gadget W,ST3
  81.    End If 
  82.    If Z1=BGAD2 or Z=$200 : GADSTR$="" : Exit : End If 
  83. Loop 
  84. '
  85. Print GADSTR$
  86. Wb Locker 0
  87. '
  88. Amos To Front 
  89. '
  90. Wb Remove Gadget W,BGAD0
  91. Wb Remove Gadget W,BGAD1
  92. Wb Remove Gadget W,BGAD2
  93. Wb Remove Gadget W,ST3
  94. Wb Free Bool Gadget BGAD0
  95. Wb Free Bool Gadget FBGAD1
  96. Wb Free Bool Gadget FBGAD2
  97. Wb Free Num Gadget ST3
  98. Wb Wind Close W
  99. Str Free TIT0
  100. Str Free TIT1
  101. '
  102. Procedure BOUT[R,X,Y,W,H,C0,C1,T$]
  103.    X1=(X+44)-(Len(T$)*4)
  104.    Wb Bevel Box R To C0,C1,X,Y,X+W,Y+H
  105.    Wb Gfx Text T$,X1,Y+8 To R
  106. End Proc
  107. '
  108. Procedure BOUT1[R,X,Y,W,C0,C1,T$]
  109.    X1=(X+44)-(Len(T$)*4)
  110.    Wb Gfx Text T$,X1,Y+9 To R
  111. End Proc
  112.